home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Ultimate Frank Lloyd…ght - America's Architect
/
Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso
/
pre
/
flw
/
flwhi.dir
/
00250_Script_250
< prev
next >
Wrap
Text File
|
1994-11-15
|
24KB
|
806 lines
on startMovie
global seeAlsoNess
global helpFrame
set helpFrame = "o"
set seeAlsoNess = FALSE
puppetSprite 21, TRUE
puppetSprite 22, TRUE
puppetSprite 23, TRUE
set the immediate of sprite 23 to TRUE
set the stretch of sprite 23 to FALSE
-- repeat with i = 7 to 15
-- puppetSprite i, TRUE
-- end repeat
end startMovie
on setHelpPups
repeat with i = 7 to 15
puppetSprite i, TRUE
end repeat
end setHelpPups
on buttonState
global FrankNav, bFlag, hFrame, nowFrame
if the frame < 44 then
put chars(nowFrame, 6, 7) into hFrame
rollHelp
end if
if (the mouseV > 200) or (bFlag = TRUE) then
doState
end if
end buttonState
on startInd
puppetSprite 10, FALSE
repeat with i = 1 to 25
-- do "set the textFont of field" && QUOTE & "ind" & i & QUOTE && "to" && QUOTE & "helvetica" & QUOTE
do "set the textHeight of field" && QUOTE & "ind" & i & QUOTE && "to 11"
end repeat
end startInd
on indRoll
if rollover(7) then
set the castNum of sprite 7 to the number of cast "creRl"
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 9 to the number of cast "visUp"
else if rollover(8) then
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 8 to the number of cast "bibRl"
set the castNum of sprite 9 to the number of cast "visUp"
else if rollover(9) then
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 9 to the number of cast "visRl"
else
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 9 to the number of cast "visUp"
end if
updateStage
end indRoll
on creRoll
if rollover(8) then
set the castNum of sprite 8 to the number of cast "bibRl"
set the castNum of sprite 9 to the number of cast "visUp"
set the castNum of sprite 10 to the number of cast "indUp"
else if rollover(9) then
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 9 to the number of cast "visRl"
set the castNum of sprite 10 to the number of cast "indUp"
else if rollover(10) then
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 9 to the number of cast "visUp"
set the castNum of sprite 10 to the number of cast "indRl"
else
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 9 to the number of cast "visUp"
set the castNum of sprite 10 to the number of cast "indUp"
end if
updateStage
end creRoll
on bibRoll
if rollover(7) then
set the castNum of sprite 7 to the number of cast "creRl"
set the castNum of sprite 9 to the number of cast "visUp"
set the castNum of sprite 10 to the number of cast "indUp"
else if rollover(9) then
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 9 to the number of cast "visRl"
set the castNum of sprite 10 to the number of cast "indUp"
else if rollover(10) then
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 9 to the number of cast "visUp"
set the castNum of sprite 10 to the number of cast "indRl"
else
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 9 to the number of cast "visUp"
set the castNum of sprite 10 to the number of cast "indUp"
end if
if rollover(18) then
set the forecolor of sprite 18 to 230
if the mouseDown then
set the forecolor of sprite 18 to 17
end if
else
set the forecolor of sprite 18 to 255
end if
if rollover(19) then
set the forecolor of sprite 19 to 230
if the mouseDown then
set the forecolor of sprite 19 to 17
end if
else
set the forecolor of sprite 19 to 255
end if
updateStage
end bibRoll
on visRoll
if rollover(7) then
set the castNum of sprite 7 to the number of cast "creRl"
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 10 to the number of cast "indUp"
else if rollover(8) then
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 8 to the number of cast "bibRl"
set the castNum of sprite 10 to the number of cast "indUp"
else if rollover(10) then
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 10 to the number of cast "indRl"
else
set the castNum of sprite 7 to the number of cast "creUp"
set the castNum of sprite 8 to the number of cast "bibUp"
set the castNum of sprite 10 to the number of cast "indUp"
end if
updateStage
end visRoll
on rollHelp
global hFrame
if the mouseH>21 and the mouseH<167 then
if the mouseV>174 and the mouseV<190 and hFrame <> "mm" then
set the castNum of sprite 15 to B21
else if the mouseV>209 and the mouseV<224 and hFrame <> "wt" then
set the castNum of sprite 15 to B22
else if the mouseV>243 and the mouseV<259 and hFrame <> "lt" then
set the castNum of sprite 15 to B23
else if the mouseV>278 and the mouseV<294 and hFrame <> "hm" then
set the castNum of sprite 15 to B24
else if the mouseV>313 and the mouseV<329 and hFrame <> "ww" then
set the castNum of sprite 15 to B25
else if the mouseV>348 and the mouseV<363 and hFrame <> "se" then
set the castNum of sprite 15 to B26
else if the mouseV>382 and the mouseV<399 and hFrame <> "li" then
set the castNum of sprite 15 to B27
else
set the castNum of sprite 15 to A22
end if
else
set the castNum of sprite 15 to A22
end if
end rollHelp
on changeHelp
unPuppet
if the CastNum of sprite 15 = B21 then
go to "hi000mmhhhhf°°"
else if the CastNum of sprite 15 = B22 then
go to "hi000wthhhh°°°"
else if the CastNum of sprite 15 = B23 then
go to "hi000lthhhh°°°"
else if the CastNum of sprite 15 = B24 then
go to "hi000hmhhhh°°°"
else if the CastNum of sprite 15 = B25 then
go to "hi000wwhhhh°°°"
else if the CastNum of sprite 15 = B26 then
go to "hi000semhhh°°°"
else if the CastNum of sprite 15 = B27 then
go to "hi000lihhhhu°°"
end if
repeat with i = 7 to 15
puppetSprite i, TRUE
end repeat
end changeHelp
on unPuppet
repeat with i = 7 to 14
puppetSprite i, FALSE
end repeat
end unPuppet
on saveLocals
global nowFrame, helpFrame
set helpFrame = nowFrame
end saveLocals
on hiForStep
if the frame = 51 then
go to frame 45
else if the frame = 58 then
go to frame 52
else if the frame = 67 then
go to frame 63
else if the frame < 43 then
repeat with i = 7 to 15
puppetSprite i, FALSE
end repeat
go marker (+1)
repeat with i = 7 to 15
puppetSprite i, TRUE
end repeat
else
go marker (+1)
end if
end hiForStep
on hiBackStep
if the frame = 45 then
go to frame 51
else if the frame = 53 then
go to frame 58
else if the frame = 63 then
go to frame 67
else if the frame < 43 then
repeat with i = 7 to 15
puppetSprite i, FALSE
end repeat
go marker (-1)
repeat with i = 7 to 15
puppetSprite i, TRUE
end repeat
else
go marker (-1)
end if
end hiBackStep
on quitRoll
if rollover(5) then
set the castNum of sprite 5 to the number of cast A78
set the castNum of sprite 6 to the number of cast A77
else if rollover(6) then
set the castNum of sprite 5 to the number of cast A76
set the castNum of sprite 6 to the number of cast A81
else
set the castNum of sprite 5 to the number of cast A76
set the castNum of sprite 6 to the number of cast A77
end if
updateStage
end quitRoll
on cancelMe
global lastFrame, lastMovie, helpFrame
if chars(helpFrame,1,2) = "hi" then
puppetSprite 5, FALSE
puppetSprite 6, FALSE
go to frame helpFrame
puppetSprite 22, TRUE
puppetSprite 23, TRUE
set helpFrame = "0"
else
set helpmov = 0
go to frame lastFrame of movie lastMovie
end if
flush
end cancelMe
on quitMe
global seeAlsoObj
global doneInit
set doneInit = FALSE
if objectP(seeAlsoObj) then
seeAlsoObj(mEnd)
seeAlsoObj(mDispose)
CloseXlib "LINKS"
end if
quit
flush
end quitMe
on mmHelpRoll
global lastSprite
if rollover(8) then
set the forecolor of sprite 8 to 17
set the castNum of sprite(14) to B48
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(7) then
set the forecolor of sprite 7 to 17
set the castNum of sprite(14) to A88
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 7
end if
else if rollover(9) then
set the forecolor of sprite 9 to 17
set the castNum of sprite(14) to B48
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 9
end if
else if rollover(10) then
set the forecolor of sprite 10 to 17
set the castNum of sprite(14) to B48
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 10
end if
else if rollover(11) then
set the forecolor of sprite 11 to 17
set the castNum of sprite(14) to B48
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 11
end if
else if rollover(12) then
set the forecolor of sprite 12 to 17
set the castNum of sprite(14) to B48
if lastSprite <> 12 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 12
end if
else if rollover(13) then
set the forecolor of sprite 13 to 17
set the castNum of sprite(14) to B48
if lastSprite <> 13 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 13
end if
else
set the forecolor of sprite lastSprite to 229
set the castNum of sprite(14) to A82
end if
end mmHelpRoll
on ehHelpRoll
global lastSprite
if rollover(8) then
set the forecolor of sprite 8 to 17
set the castNum of sprite(14) to B76
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the forecolor of sprite 9 to 17
set the castNum of sprite(14) to A85
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 9
end if
else if rollover(7) then
set the forecolor of sprite 7 to 17
set the castNum of sprite(14) to A65
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 7
end if
else
set the forecolor of sprite lastSprite to 229
set the castNum of sprite(14) to A82
end if
end ehHelpRoll
on wtHelpRoll
global lastSprite
if rollover(8) then
set the forecolor of sprite 8 to 17
set the castNum of sprite(14) to B76
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the forecolor of sprite 9 to 17
set the castNum of sprite(14) to A66
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 9
end if
else
set the forecolor of sprite lastSprite to 229
set the castNum of sprite(14) to A82
end if
end wtHelpRoll
on ltHelpRoll
global lastSprite
if rollover(8) then
set the forecolor of sprite 8 to 17
set the castNum of sprite(14) to 117
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(7) then
set the castNum of sprite(14) to A65
set the forecolor of sprite 7 to 17
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 7
else if rollover(10) then
set the castNum of sprite(14) to A86
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 10
else if rollover(11) then
set the castNum of sprite(14) to A87
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end ltHelpRoll
on hmHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to C43
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(10) then
set the castNum of sprite(14) to B12
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 10
else if rollover(12) then
set the castNum of sprite(14) to B43
set the forecolor of sprite 12 to 17
if lastSprite <> 12 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 12
else if rollover(13) then
set the castNum of sprite(14) to B43
set the forecolor of sprite 13 to 17
if lastSprite <> 13 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 13
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end hmHelpRoll
on h2HelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to C43
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(11) then
set the castNum of sprite(14) to B42
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else if rollover(10) then
set the castNum of sprite(14) to B12
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 10
else if rollover(12) then
set the castNum of sprite(14) to B38
set the forecolor of sprite 12 to 17
if lastSprite <> 12 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 12
else if rollover(13) then
set the castNum of sprite(14) to B41
set the forecolor of sprite 13 to 17
if lastSprite <> 13 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 13
else if rollover(9) then
set the castNum of sprite(14) to B41
set the forecolor of sprite 9 to 17
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 9
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end h2HelpRoll
on h3HelpRoll
global lastSprite
if rollover(8) then
set the forecolor of sprite 8 to 17
set the castNum of sprite(14) to C43
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the forecolor of sprite 9 to 17
set the castNum of sprite(14) to B37
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 9
end if
else if rollover(10) then
set the forecolor of sprite 10 to 17
set the castNum of sprite(14) to B12
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 10
end if
else
set the forecolor of sprite lastSprite to 229
set the castNum of sprite(14) to A82
end if
end h3HelpRoll
on chHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to 117
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the castNum of sprite(14) to B11
set the forecolor of sprite 9 to 17
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 9
else if rollover(7) then
set the castNum of sprite(14) to A65
set the forecolor of sprite 7 to 17
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 7
else if rollover(10) then
set the castNum of sprite(14) to B44
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 10
else if rollover(11) then
set the castNum of sprite(14) to B48
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end chHelpRoll
on wwHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to B76
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the castNum of sprite(14) to B46
set the forecolor of sprite 9 to 17
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 9
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end wwHelpRoll
on atHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to 117
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the castNum of sprite(14) to B28
set the forecolor of sprite 9 to 17
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 9
end if
else if rollover(7) then
set the castNum of sprite(14) to A65
set the forecolor of sprite 7 to 17
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 7
end if
else if rollover(10) then
set the castNum of sprite(14) to B45
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 10
end if
else if rollover(11) then
set the castNum of sprite(14) to B36
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 11
end if
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end atHelpRoll
on deHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to 117
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(7) then
set the castNum of sprite(14) to A65
set the forecolor of sprite 7 to 17
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 7
else if rollover(10) then
set the castNum of sprite(14) to B44
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 10
else if rollover(11) then
set the castNum of sprite(14) to A64
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end deHelpRoll
on seHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to 117
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(7) then
set the castNum of sprite(14) to A65
set the forecolor of sprite 7 to 17
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 7
else if rollover(11) then
set the castNum of sprite(14) to C44
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end seHelpRoll
on se2HelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to 117
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(7) then
set the castNum of sprite(14) to A65
set the forecolor of sprite 7 to 17
if lastSprite <> 7 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 7
else if rollover(11) then
set the castNum of sprite(14) to B47
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end se2HelpRoll
on liHelpRoll
global lastSprite
if rollover(8) then
set the castNum of sprite(14) to B76
set the forecolor of sprite 8 to 17
if lastSprite <> 8 then
set the forecolor of sprite lastSprite to 229
set lastSprite = 8
end if
else if rollover(9) then
set the castNum of sprite(14) to B52
set the forecolor of sprite 9 to 17
if lastSprite <> 9 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 9
else if rollover(10) then
set the castNum of sprite(14) to B54
set the forecolor of sprite 10 to 17
if lastSprite <> 10 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 10
else if rollover(11) then
set the castNum of sprite(14) to B53
set the forecolor of sprite 11 to 17
if lastSprite <> 11 then
set the forecolor of sprite lastSprite to 229
end if
set lastSprite = 11
else
set the castNum of sprite(14) to A82
set the forecolor of sprite lastSprite to 229
end if
end liHelpRoll
on jump jmp,mvName
global thor, tvert, helpMov
global ltQT
set the locH of sprite 11 to thor
set the locV of sprite 11 to tvert
repeat with i = 1 to 3
startTimer
repeat while the Timer < 3
end repeat
set the castnum of sprite 11 to A74
updateStage
repeat while the Timer < 6
end repeat
set the castnum of sprite 11 to A73
updateStage
end repeat
set helpMov = 0
set ltQT = FALSE
go to frame jmp of movie mvName
end jump